MAKROEKONOMSKI PREGLED

Inflacija

Kamatne stope CB

BDP dugoročno (razine)
# dugoročne razine sa PEN world


df <- rdb(ids = c('OECD/MEI/USA.NAEXCP01.STSA.A',
                  'OECD/MEI/EA19.NAEXCP01.STSA.A',
                 # 'IMF/MFS/M.DE.FPOLM_PA',
                  'OECD/MEI/GBR.NAEXCP01.STSA.A')) %>%
  filter(!is.na(value))


ggplot(df, aes(x = period, y = value, color = Country)) +
  geom_line(size = 0.5) 

BDP dugoročno (stope promjene)
df <- rdb(ids = c('OECD/MEI/USA.NAEXKP01.GYSA.Q',
                  'OECD/MEI/EA19.NAEXKP01.GYSA.Q',
                 # 'IMF/MFS/M.DE.FPOLM_PA',
                  'OECD/MEI/GBR.NAEXKP01.GYSA.Q')) %>%
  filter(!is.na(value))


ggplot(df, aes(x = period, y = value, color = Country)) +
  geom_line(size = 0.5) 

df <- rdb(ids = c('OECD/MEI/USA.NAEXKP01.GYSA.A',
                  'OECD/MEI/EA19.NAEXKP01.GYSA.A',
                 # 'IMF/MFS/M.DE.FPOLM_PA',
                  'OECD/MEI/GBR.NAEXKP01.GYSA.A')) %>%
  filter(!is.na(value))


ggplot(df, aes(x = period, y = value, color = Country)) +
  geom_line(size = 0.5) 

BDP dugoročno (recesije)
library(fredr)

fredr(
  series_id = "JHDUSRGDPBR",
  observation_start = as.Date("1940-01-01"),
  observation_end = as.Date("2022-01-01")
) %>%
ggplot(data = ., mapping = aes(x = date, y = value, color = series_id)) +
    geom_line() +
    labs(x = "Observation Date", y = "Rate", color = "Series") +
    ggtitle("Recesija u SAD")

fredr(
  series_id = "JHGDPBRINDX",
  observation_start = as.Date("1940-01-01"),
  observation_end = as.Date("2022-01-01")
) %>%
ggplot(data = ., mapping = aes(x = date, y = value, color = series_id)) +
    geom_line() +
    labs(x = "Observation Date", y = "Rate", color = "Series") +
    ggtitle("Vjerojatnost recesije u SAD")

BDP kratkoročno
Nezaposlenost
fredr(
  series_id = "UNRATE",
  observation_start = as.Date("1940-01-01"),
  observation_end = as.Date("2022-01-01")
) %>% # View()
ggplot(data = ., mapping = aes(x = date, y = value)) +
    geom_line() + 
    geom_rect( aes(xmin=realtime_start, xmax=realtime_end, ymin=-Inf, ymax=+Inf), fill='pink', alpha=0.2) +
    labs(x = "Observation Date", y = "Rate", color = "Series") +
    ggtitle("Nezaposlenost u SAD")

Nezaposlenost (+recesije)
A caption

A caption

FINANCIJSKA TRŽIŠTA

Dionice (povijesno)
A caption

A caption

Dionice (25y)
A caption

A caption

Dionice (5y)
A caption

A caption

Dionice (1y)
A caption

A caption

Nafta (1y)
A caption

A caption

Obveznice (10y;dugi rok)

Obveznice (10y;srednji rok)

Obveznice (1y;srednji rok)

Obveznice inverzija

Bond spread

TLT20

Crypto

Crypto

Fondovi (energija + obvezince)

FED i tržišta

Duljina pada na dioničkom tržištu

SP500 zarade

Income +